home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagg_m.zip / MISC.SWG / 0040_Generate RANDOM Number.pas < prev    next >
Pascal/Delphi Source File  |  1993-09-26  |  583b  |  16 lines
  1. {*****************************************************************************
  2.  * Function ...... RND()
  3.  * Purpose ....... To generate a random number
  4.  * Parameters .... i          Max value for number range
  5.  * Returns ....... A random number between 1 and i
  6.  * Notes ......... None
  7.  * Author ........ Martin Richardson
  8.  * Date .......... May 13, 1992
  9.  *****************************************************************************}
  10. { FUNCTION to generate a random number between 1 and i }
  11. FUNCTION RND( i: LONGINT ): LONGINT;
  12. BEGIN
  13.      RND := RANDOM( i ) + 1;
  14. END;
  15.  
  16.